home *** CD-ROM | disk | FTP | other *** search
/ PCMania 40 / PCMania CD40_1.iso / render40 / oca_a / percha.inc < prev    next >
Text File  |  1995-10-03  |  2KB  |  136 lines
  1. #include "texturas.inc"
  2. #include "shapes.inc"
  3.  
  4. #declare SUJETAPERCHA = box {
  5.   <-1, -1, -1>, <1, 1, 1>
  6.   texture {
  7.     Mesa_Silla
  8.   }
  9.   scale <0.100, 5.000, 1.000>
  10. }
  11.  
  12. #declare Bound00001 = box {
  13.    <-1.0, -1.0, -1.0>, <1.0, 1.0, 1.0>
  14.   scale <1.000, 1.000, 0.5600>
  15. }
  16.  
  17. #declare PERCHA_A = torus { 
  18.   0.5, 0.25  // Major, minor radius
  19.   rotate -x*90
  20.   texture {
  21.     Gris_metal
  22.   }
  23.   bounded_by { Bound00001 }
  24.   rotate <0.000, -90.000, 0.000>
  25.   translate <-0.7000, -3.000, 0.100>
  26. }
  27.  
  28. #declare CORTEPERCHA_A = plane {
  29.   z,0
  30.   texture {
  31.     Gris_metal
  32.   }
  33.   translate <0.000, -3.00, 0.000>
  34. }
  35.  
  36. #declare PERCHA = difference {
  37.   object { PERCHA_A }
  38.   object { CORTEPERCHA_A }
  39.   texture {
  40.     Gris_metal
  41.   }
  42. }
  43.  
  44. #declare Bound00002 = box {
  45.    <-1.0, -1.0, -1.0>, <1.0, 1.0, 1.0>
  46.   scale <1.0300, 1.0300, 0.2800>
  47. }
  48.  
  49. #declare UNE_PERCHA_A = torus { 
  50.   0.5, 0.250  // Major, minor radius
  51.   rotate -x*90
  52.   texture {
  53.     Gris_metal
  54.   }
  55.   bounded_by { Bound00002 }
  56.   rotate <-90.00, 0.0, 0.00>
  57.   translate <-0.3, -2.27, 0.000>
  58. }
  59.  
  60. #declare CORTE_UNION = plane {
  61.   z,0
  62.   texture {
  63.     Gris_metal
  64.   }
  65.   rotate <0.00, -180.00, 0.000>
  66. }
  67.  
  68. #declare CORTE_UNION2 = plane {
  69.   z,0
  70.   texture {
  71.     Gris_metal
  72.   }
  73.   rotate <0.000, -90.00, 0.000>
  74.  }
  75.  
  76. #declare UNION = difference {
  77.   object { UNE_PERCHA_A }
  78.   object { CORTE_UNION }
  79.   object { CORTE_UNION2 }
  80.   translate <0.100, 0.00, 0.000>
  81. }
  82.  
  83. #declare Bound3 = box {
  84.    <-1.0, -1.0, -1.0>, <1.0, 1.0, 1.0>
  85.   scale <1.030, 1.030, 0.2800>
  86. }
  87.  
  88. #declare UNE_PERCHA_A1 = torus { 
  89.   0.5, 0.250  // Major, minor radius
  90.   rotate -x*90
  91.   texture {
  92.     Gris_metal
  93.   }
  94.   bounded_by { Bound3 }
  95.   rotate <-90.0, 0.00, 0.00>
  96.   translate <-.3, -3.7, 0.00>
  97. }
  98.  
  99. #declare CORTE_UNION1 = plane {
  100.   z,0
  101.   texture {
  102.     Gris_metal
  103.   }
  104.   rotate <0.00, -180.000, 0.000>
  105. }
  106.  
  107. #declare CORTE_UNION3 = plane {
  108.   z,0
  109.   texture {
  110.     Gris_metal
  111.   }
  112.   rotate <0.00, -90.00, 0.0>
  113. }
  114.  
  115. #declare UNION1 = difference {
  116.   object { UNE_PERCHA_A1 }
  117.   object { CORTE_UNION1 }
  118.   object { CORTE_UNION3 }
  119. }
  120.  
  121. #declare PERCHA1 = union {
  122.   object { PERCHA }
  123.   object { UNION }
  124.   object { UNION1 }
  125.   scale <1, .7, 1>
  126. }
  127.  
  128. #declare PERCHAS = union {
  129.   object { SUJETAPERCHA  translate <0, 2, 0>}
  130.   object { PERCHA1 }
  131.   object { PERCHA1 translate <-.2, 2, 0>}
  132.   object { PERCHA1 translate <-.2, 4, 0>}
  133.   object { PERCHA1 translate <-.2, 6, 0>}
  134.   scale <1, .5, 1>
  135. }
  136.